UC知道ASP中"列表/菜单"的使用.
来源：百度知道 编辑：UC知道 时间：2024/04/28 15:04:35
"列表/菜单"中已经从表里赋值过来,我想实现当我选择列表中一项时同时要把这个单位里的联系人和联系电话调出来并把值赋给文本框dwcontact和dwphone,不知道要怎么样来实现,请帮我做一下代码或给个参考,谢谢!
<td colspan="2" height="28" bgcolor="#FFFFFF"> 单位：
<select name="dwname">
<option value="99999"> ...选择单位... </option>
<%
do while not rs.eof
Response.Write "<option name="&rs("DW_id")&" value="&rs("DW_Name")&"> "&rs("DW_Name")&" </option> " & vbCrLf
rs.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td height="28" bgcolor="#FFFFFF"> 联 系 人：
<input name="dwcontact" type="text" size="20" value=""></td>
<td height="28" bgcolor="#FFFFFF"> 联系电话：
<input nam
<td colspan="2" height="28" bgcolor="#FFFFFF"> 单位：
<select name="dwname">
<option value="99999"> ...选择单位... </option>
<%
do while not rs.eof
Response.Write "<option name="&rs("DW_id")&" value="&rs("DW_Name")&"> "&rs("DW_Name")&" </option> " & vbCrLf
rs.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td height="28" bgcolor="#FFFFFF"> 联 系 人：
<input name="dwcontact" type="text" size="20" value=""></td>
<td height="28" bgcolor="#FFFFFF"> 联系电话：
<input nam
单位：
<select id="dwname" name="dwname" onchange="dwcontact.value=this.options[dwname.selectedIndex].lxr;dwphone.value=this.options[dwname.selectedIndex].dh;">
<option value="99999">请选择单位</option>
<%
do while not rs.eof
Response.Write "<option value="&rs("DW_Name")&" lxr='"&rs("联系人")&"' dh='"&rs("电话")&"'> "&rs("DW_Name")&" </option> " & vbCrLf
rs.movenext
loop
%>
</select>
<br><br>
联 系 人：
<input name="dwcontact" id="dwcontact" type="text" size="20" value=""></td>
<br>
联系电话：
<input name="dwphone" id="dwphone" type="text" size="20" value="">
----------------------
说